home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 27.zip
/
BS1 part 27
/
Superbase4_d2.adf
/
Trading
/
STKRBE.SBP
< prev
next >
Wrap
Text File
|
1992-08-05
|
2KB
|
71 lines
SBP
ÿ½ STKRBE
ÿ½ Client Trading Balance Report
ÿ½ Last updated Jan 21, 90
ÿ³ÿ_ÿwrerror
hd1$ÿ"Client Trading Balances at "ÿÿ(ÿQ,"mmm dd,yy")
hd12$ÿ"Ref: STKRBE"
m1:
ÿÁUSD Value.TRANS,Comm_Value.TRANS,Total_Due.TRANS
ÿ}ÿÁ
ÿ{@52;" ========= ========== ==========="
ÿ{@1;"Totals for Client Trading Balance Report";@54;&6.2ÿlUSD Value.TRANS;@67;&11ÿlComm_Value.TRANS;@79;&6.2ÿlTotal_Due.TRANS
ÿ{@52;" ========= ========== ==========="
ÿÿÁ
ÿ
ÿ{@1;hd1$;@66;hd12$
ÿ{
ÿ{@1;"Client ref Name Location Telephone "
ÿ{@1;"Date b/s Ref Quantity Curr units Price US$ Value Commission Total Due"
ÿ{@1;"--------- --- ------ -------- ---------- --------- --------- ---------- -----------"
ÿÿ
ÿCustomer_Ref.TRANS,USD Value.TRANS,Comm_Value.TRANS,Total_Due.TRANS
ÿÿCustomer_Ref.TRANS
ÿ{
ÿ{@1;&8Customer_Ref.TRANS;@10;&24Client.CLIENTS;@35;&30Location.CLIENTS;@66;&3Dialcode.COUNTRY;@70;&16Telephone.CLIENTS
ÿÿ
ÿ}ÿCustomer_Ref.TRANS
ÿ{@54;" --------- ---------- ------------"
ÿ{@1;"Totals for ";&15ÿ;@55;&12ÿlUSD Value.TRANS;&11ÿlComm_Value.TRANS;@80;&12ÿlTotal_Due.TRANS
ÿ{@55;"--------- ---------- ------------"
ÿÿ
ÿÉ@1;&10Trans_Date.TRANS;@12;&1Trans_Type.TRANS;@14;&7Transaction ref.TRANS;@22;&9Quantity.TRANS;
@32;&8Units.CURRENCY;@41;&12Stock_Price.TRANS;@54;&10USD Value.TRANS;@65;&11Comm_Value.TRANS;@78;&11Total_Due.TRANS
ÿÐCurrency.TRANSÿCurrency.CURRENCYÿCustomer_Ref.CLIENTSÿCustomer_Ref.TRANSÿName.COUNTRYÿCountry.CLIENTS
ÿµCustomer_Ref.TRANS,Transaction ref.TRANS
m2:
ÿ¡p$ÿ"d"ÿp
ÿÊÿËss14$
ÿÏÿ¥ÿÿß
ÿÿ¡
repeat:
ÿÂms3$,"",135,a%
ÿ¡a%ÿ0ÿpÿwrexit
ÿ¡p$ÿ"p"ÿpÿ¹;
ÿwm1
rexit:
ÿ"menu"
rerror:ÿ½ On error
res%ÿ0
ÿ¡ÿ&ÿ11ÿp
ÿÂms21$,ms22$,130,a%:ÿ¡a%ÿ1ÿpres%ÿ1
ÿ^ÿ¡ÿ&ÿ27ÿp
ÿÂms11$,ms12$,100,a%:res%ÿ2
ÿ^
ÿÂÿ((ÿ&),"",113,a%:res%ÿ1
ÿÿ¡
ÿ¡res%ÿ1ÿpÿyrepeat
ÿ¡res%ÿ2ÿpÿyrexit
ÿ